# -*- coding: utf-8; mode: snippet -*-
# name: print $hashref
# key: lhash.
# contributor: Chen Bin <chenbin DOT sh AT gmail>
# --
print "hash \\\$${1:h}:\n"; print "\$_=>\$${1:$(yas/substr yas-text "[^ ]*")}->{\$_}\n" for (keys %\$${1:$(yas/substr yas-text "[^ ]*")});